home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / MEMTOP.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  877b  |  33 lines
  1. ;******************************************************************
  2. ;*                           MEMTOP.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.      EXTRN PrefixSeg:Word
  11.      EXTRN DosError:Word
  12. .CODE
  13.      Public SetMemTop
  14. SetMemTop Proc Far MemTop:Dword
  15.  
  16. ;procedure SetMemTop(MemTop: Pointer);
  17.         MOV     BX,Word Ptr MemTop[0]
  18.     ADD    BX,15
  19.     MOV    CL,4
  20.     SHR    BX,CL
  21.         ADD     BX,Word Ptr MemTop[2]
  22.     MOV    AX,PrefixSeg
  23.     SUB    BX,AX
  24.     MOV    ES,AX
  25.     MOV    AH,4AH
  26.     INT    21H
  27.         JC @@Error
  28.         SUB AX,AX
  29. @@Error:MOV DosError,AX
  30.         RET
  31.        EndP
  32. end
  33.